home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / MCI / MCITEST.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-29  |  2.3 KB  |  75 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMCITest 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "MCI Control Application"
  5.    ClientHeight    =   870
  6.    ClientLeft      =   2040
  7.    ClientTop       =   2040
  8.    ClientWidth     =   3765
  9.    Icon            =   "mcitest.frx":0000
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   870
  14.    ScaleWidth      =   3765
  15.    Begin VB.Menu AL_DEVICES 
  16.       Caption         =   "&Devices"
  17.       Begin VB.Menu AI_CDAUDIO 
  18.          Caption         =   "&CDAudio..."
  19.       End
  20.       Begin VB.Menu AI_SEQUENCER 
  21.          Caption         =   "&Sequencer..."
  22.       End
  23.       Begin VB.Menu AI_WAVEAUDIO 
  24.          Caption         =   "&WaveAudio..."
  25.       End
  26.    End
  27.    Begin VB.Menu AL_HELP 
  28.       Caption         =   "&Help"
  29.       Begin VB.Menu AI_ABOUT 
  30.          Caption         =   "&About..."
  31.       End
  32.    End
  33. Attribute VB_Name = "frmMCITest"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. Private Sub AI_ABOUT_Click()
  39.     ' Display the About Box.  Allow Windows messages
  40.     ' to be processed before setting the focus to the
  41.     ' OK button.
  42.     frmAboutBox.Show
  43.     WaitForEventsToFinish 50
  44.     On Error Resume Next
  45.     frmAboutBox.BTN_OK.SetFocus
  46. End Sub
  47. Private Sub AI_CDAUDIO_Click()
  48.     frmCD.Show
  49.     frmMCITest.Hide
  50.     DisplayWarning
  51. End Sub
  52. Private Sub AI_SEQUENCER_Click()
  53.     DialogCaption = "MIDI Sequencer - "
  54.     frmWave.Caption = "MIDI Sequencer"
  55.     ' Set the Open File dialog box to display *.mid files.
  56.     frmOpenDlg.dlgOpenFile.Filter = "MIDI File (*.mid)|*.mid"
  57.     frmWave.mciWave.DeviceType = "Sequencer"
  58.     frmWave.Show
  59.     frmMCITest.Hide
  60. End Sub
  61. Private Sub AI_WAVEAUDIO_Click()
  62.     DialogCaption = "WaveAudio - "
  63.     frmWave.Caption = "WaveAudio"
  64.     ' Set the Open File dialog box to display *.wav files.
  65.     frmOpenDlg.dlgOpenFile.Filter = "WaveForm File (*.wav)|*.wav"
  66.     frmWave.mciWave.DeviceType = "WaveAudio"
  67.     frmWave.Show
  68.     frmMCITest.Hide
  69. End Sub
  70. Private Sub Form_Unload(Cancel As Integer)
  71.     ' Remember to unload the OpenDlg form since it is
  72.     ' only "hidden" when it is removed.
  73.     Unload frmOpenDlg
  74. End Sub
  75.